/* Replication of Results Reported in Michael J. Hiscox "Through a Glass and Darkly" */


/* Results for Table 1 */
tabulate tradeB if his1group==1, summarize(tradeB)
tabulate tradeB if h1pos==1, summarize(tradeB)
tabulate tradeB if h2neg==1, summarize(tradeB)
tabulate tradeB if h3both==1, summarize(tradeB)
tabulate tradeB if h4none==1, summarize(tradeB)

/* Results for Table 2 */
tabulate tradeCat if his1group==1, summarize(tradeCat)
tabulate tradeCat if h1pos==1, summarize(tradeCat)
tabulate tradeCat if h2neg==1, summarize(tradeCat)
tabulate tradeCat if h3both==1, summarize(tradeCat)
tabulate tradeCat if h4none==1, summarize(tradeCat)

/* Results for Table 3 */
tabulate tradeB if h1pos==1 & educSC==1, summarize(tradeB)
tabulate tradeB if h2neg==1 & educSC==1, summarize(tradeB)
tabulate tradeB if h3both==1 & educSC==1, summarize(tradeB)
tabulate tradeB if h4none==1 & educSC==1, summarize(tradeB)
tabulate tradeB if h1pos==1 & educSC==0, summarize(tradeB)
tabulate tradeB if h2neg==1 & educSC==0, summarize(tradeB)
tabulate tradeB if h3both==1 & educSC==0, summarize(tradeB)
tabulate tradeB if h4none==1 & educSC==0, summarize(tradeB)

/* Results for Table 4 */
tabulate tradeB if h1pos==1 & trainSGD==1, summarize(tradeB)
tabulate tradeB if h2neg==1 & trainSGD==1, summarize(tradeB)
tabulate tradeB if h3both==1 & trainSGD==1, summarize(tradeB)
tabulate tradeB if h4none==1 & trainSGD==1, summarize(tradeB)
tabulate tradeB if h1pos==1 & trainSGD==0, summarize(tradeB)
tabulate tradeB if h2neg==1 & trainSGD==0, summarize(tradeB)
tabulate tradeB if h3both==1 & trainSGD==0, summarize(tradeB)
tabulate tradeB if h4none==1 & trainSGD==0, summarize(tradeB)

/* Results for Table 5 */
tabulate tradeB if h1pos==1 & age<35, summarize(tradeB)
tabulate tradeB if h2neg==1 & age<35, summarize(tradeB)
tabulate tradeB if h3both==1 & age<35, summarize(tradeB)
tabulate tradeB if h4none==1 & age<35, summarize(tradeB)
tabulate tradeB if h1pos==1 & age>34, summarize(tradeB)
tabulate tradeB if h2neg==1 & age>34, summarize(tradeB)
tabulate tradeB if h3both==1 & age>34, summarize(tradeB)
tabulate tradeB if h4none==1 & age>34, summarize(tradeB)

/* Results for Table 6 */
tabulate tradeB if h1pos==1 & genderB==0, summarize(tradeB)
tabulate tradeB if h2neg==1 & genderB==0, summarize(tradeB)
tabulate tradeB if h3both==1 & genderB==0, summarize(tradeB)
tabulate tradeB if h4none==1 & genderB==0, summarize(tradeB)
tabulate tradeB if h1pos==1 & genderB==1, summarize(tradeB)
tabulate tradeB if h2neg==1 & genderB==1, summarize(tradeB)
tabulate tradeB if h3both==1 & genderB==1, summarize(tradeB)
tabulate tradeB if h4none==1 & genderB==1, summarize(tradeB)

/* Results for Table 7 */
dprobit tradeB h1pos h2neg h3both age genderB educSC if his1group==1 
dprobit tradeB h1pos h2neg h3both age genderB trainSGD if his1group==1 
dprobit tradeB age genderB educSC if h1pos==1 
dprobit tradeB age genderB trainSGD if h1pos==1 
dprobit tradeB age genderB educSC if h2neg==1 
dprobit tradeB age genderB trainSGD if h2neg==1 
dprobit tradeB age genderB educSC if h3both==1 
dprobit tradeB age genderB trainSGD if h3both==1 
dprobit tradeB age genderB educSC if h4none==1 
dprobit tradeB age genderB trainSGD if h4none==1 

/* Results for Table 8 */
tabulate genderB if his1group==1, summarize(age) 
tabulate genderB if his1group==1, summarize(educSC)
tabulate genderB if h1pos==1, summarize(age)   
tabulate genderB if h1pos==1, summarize(educSC)
tabulate genderB if h2neg==1, summarize(age)     
tabulate genderB if h2neg==1, summarize(educSC)  
tabulate genderB if h3both==1, summarize(age)   
tabulate genderB if h3both==1, summarize(educSC)  
tabulate genderB if h4none==1, summarize(age)   
tabulate genderB if h4none==1, summarize(educSC) 
sum genderB if his1group==1
sum genderB if h1pos==1
sum genderB if h2neg==1
sum genderB if h3both==1
sum genderB if h4none==1

/* Results for Table 9 */
dprobit tradeB h1pos h2neg h3both age educSC if his1group==1 & genderB==0
dprobit tradeB h1pos h2neg h3both age trainSGD if his1group==1 & genderB==0
dprobit tradeB age educSC if h1pos==1 & genderB==0
dprobit tradeB age trainSGD if h1pos==1 & genderB==0
dprobit tradeB age educSC if h2neg==1 & genderB==0
dprobit tradeB age trainSGD if h2neg==1 & genderB==0
dprobit tradeB age educSC if h3both==1 & genderB==0
dprobit tradeB age trainSGD if h3both==1 & genderB==0
dprobit tradeB age educSC if h4none==1 & genderB==0
dprobit tradeB age trainSGD if h4none==1 & genderB==0

/* Results for Table 10 */
dprobit tradeB h1pos h2neg h3both age genderB educSC regwest regsouth regmidwest incomB RepubB tjobB if his1group==1 
dprobit tradeB h1pos h2neg h3both age genderB trainSGD regwest regsouth regmidwest incomB RepubB tjobB if his1group==1 
dprobit tradeB age genderB educSC regwest regsouth regmidwest incomB RepubB tjobB if h1pos==1 
dprobit tradeB age genderB trainSGD regwest regsouth regmidwest incomB RepubB tjobB if h1pos==1 
dprobit tradeB age genderB educSC regwest regsouth regmidwest incomB RepubB tjobB if h2neg==1 
dprobit tradeB age genderB trainSGD regwest regsouth regmidwest incomB RepubB tjobB if h2neg==1 
dprobit tradeB age genderB educSC regwest regsouth regmidwest incomB RepubB tjobB if h3both==1 
dprobit tradeB age genderB trainSGD regwest regsouth regmidwest incomB RepubB tjobB if h3both==1 
dprobit tradeB age genderB educSC regwest regsouth regmidwest incomB RepubB tjobB if h4none==1 
dprobit tradeB age genderB trainSGD regwest regsouth regmidwest incomB RepubB tjobB if h4none==1 


/* Results for Table 11 */
dprobit tradeB h1pos h2neg h3both age genderB educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP if his1group==1 
dprobit tradeB h1pos h2neg h3both age genderB educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP trainSGD if his1group==1 
dprobit tradeB age genderB educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP if h1pos==1 
dprobit tradeB age genderB educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP if h2neg==1 
dprobit tradeB age genderB educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP if h3both==1 
dprobit tradeB age genderB educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP if h4none==1 


/* Results for Table A1 */
tabulate tradeB if his2group==1, summarize(tradeB)
tabulate tradeB if h5posNYT==1, summarize(tradeB)
tabulate tradeB if h6negNYT==1, summarize(tradeB)
tabulate tradeB if h7bothNYT==1, summarize(tradeB)
tabulate tradeB if h8noneNYT==1, summarize(tradeB)

/* Descriptive Statistics for Table A2 */
summ tradeB h1pos h2neg h3both h4none age genderB educSC trainSGD incomB tjobB RepubB regwest regsouth regmidwest regeast educ_hd educ_sc educ_vt educ_cc educ_ba educ_MP if his1group==1

/* Results for Table A3 */
dprobit tradeB h1pos h2neg h3both age iagepos iageneg iageboth genderB igenderBpos igenderBneg igenderBboth educSC ieducSCpos ieducSCneg ieducSCboth if his1group==1 
dprobit tradeB h1pos h2neg h3both age iagepos iageneg iageboth genderB igenderBpos igenderBneg igenderBboth educSC ieducSCpos ieducSCneg ieducSCboth regwest regsouth regmidwest incomB RepubB tjobB if his1group==1 
dprobit tradeB h1pos h2neg h3both age iagepos iageneg iageboth educSC ieducSCpos ieducSCneg ieducSCboth if his1group==1 & genderB==0
dprobit tradeB h1pos h2neg h3both age iagepos iageneg iageboth educSC ieducSCpos ieducSCneg ieducSCboth regwest regsouth regmidwest incomB RepubB tjobB if his1group==1 & genderB==0 


